www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\channel.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="ConnDB.asp"-->
<!--#include file="include/function.Common.asp"-->
<!--#include file="include/Deep.Class.Template.asp"-->

<!--#include file="include/function.tag.template.asp"-->
<!--#include file="include/function.tag.url.asp"-->
<!--#include file="include/function.tag.common.asp"-->

<%
id=request.QueryString("id")
if (id="") or (not isNumeric(id)) then 
  response.Redirect("index.asp")
end if

'是否html静态
if(site_isHTML=1)then
	call CloseConnDB()
	Response.Redirect("html/channel/channel_"&id&".htm")
end if

	  
sql_channel="select fid,fparentID,fname,fcontentTitle,fcontent,fchannelPic from deep_Channel where fisView=1 and fid=" & id
set rsChannel=conn.execute(sql_channel)
if (rsChannel.eof and rsChannel.bof) then
  response.Write("没有记录")
else
	fid		= rsChannel("fid")
	fparentID	= rsChannel("fparentID")
	fname		= rsChannel("fname")
	fchannelPic		= rsChannel("fchannelPic")
	fcontentTitle	= rsChannel("fcontentTitle")
	fcontent		= rsChannel("fcontent")
end if
rsChannel.close
set rsChannel=nothing


dim oDeepTemplate
set oDeepTemplate=new Deep_Template
	oDeepTemplate.templates_dir="themes/"&site_theme&"/"
	'template=oDeepTemplate.readTemplateFile("index.htm")
	oDeepTemplate.readTemplateFile("channel.template.html")	'调入文件
	'oDeepTemplate.replaceTag "../base.css","themes/base.css"
	oDeepTemplate.replaceText "theme.css","themes/"&site_theme&"/theme.css"
	
	do_replace_siteConfig(oDeepTemplate)	'替换网站基本配置信息标签
	'导航
	call do_replace_Channel()
	'广告
	call do_replace_AD()
    
	'response.Write( oDeepTemplate.template )
	oDeepTemplate.replaceTag "custom_sort_url",getHTML_custom_sort_url
		
	' 参数	{$fastLogin(46,8)}
	oDeepTemplate.replaceTagParameter "fastLogin","getHTML_fastLogin"
		oDeepTemplate.replaceTag "urlSort",getHTML_urlSort
	oDeepTemplate.replaceTag "friendLink",getHTML_friendLink
	oDeepTemplate.replaceTag "siteInfoStatistic",getHTML_siteInfoStatistic
	
	'---频道--------------------
	'if(fparentID<>0)then
	  strSiteNavClassList = siteNavClassList("",fparentID,"select fid,fparentID,fname from deep_Channel where fisView=1 and fid=") 
	'end if
    
	oDeepTemplate.replaceTag "siteNavBar",strSiteNavClassList
	oDeepTemplate.replaceTag "channel_name",fname
	oDeepTemplate.replaceTag "channel_contentTitle",fcontentTitle
	oDeepTemplate.replaceTag "channel_content",fcontent
	'------------------------
	
	oDeepTemplate.display()	'显示
	
set oDeepTemplate=nothing

call CloseConnDB()

%>